home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 62 / Quick PC 62.iso / I386 / IIS5_01.CAB / IIS_iifmsg.asp < prev    next >
Encoding:
Text File  |  1999-06-03  |  2.2 KB  |  104 lines

  1. <%@ LANGUAGE = VBScript %>
  2. <% Option Explicit %>
  3. <!-- #include file="directives.inc" -->
  4.  
  5. <% if Session("FONTSIZE") = "" then %>
  6.     <!--#include file="iito.inc"-->
  7. <% else %>
  8.     <!--#include file="iifmsg.str"-->
  9. <% 
  10.  
  11. On Error Resume Next
  12.  
  13. Dim path, currentobj,agreeting, greeting, arraybound, i
  14.  
  15. path=Session("spath")
  16. Session("path")=path
  17. Set currentobj=GetObject(path)
  18. Session("SpecObj")=""
  19. Session("SpecProps")=""
  20.  
  21. if IsArray(currentobj.GreetingMessage) then    
  22.  
  23.     agreeting=currentobj.GreetingMessage
  24.     greeting=    ""
  25.     arraybound=UBound(agreeting)
  26.     for i=0 to arraybound
  27.         greeting=greeting & agreeting(i)
  28.     Next
  29. else
  30.     greeting=currentobj.GreetingMessage
  31. end if
  32.  
  33. %>
  34.  
  35. <!--#include file="iiset.inc"-->
  36. <!--#include file="iisetfnt.inc"-->
  37. <HTML>
  38. <HEAD>
  39. <TITLE></TITLE>
  40. <SCRIPT LANGUAGE="JavaScript">
  41.     var Global=top.title.Global;
  42.     top.title.Global.helpFileName="iipz_2";
  43.  
  44.     function loadVals(){
  45.     }
  46.  
  47. </SCRIPT>
  48. </HEAD>
  49.  
  50. <BODY BGCOLOR="<%= Session("BGCOLOR") %>" TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" onLoad="loadVals();"  >
  51. <%= sFont("","","",True) %>
  52. <B><%= L_VSERVERMSG_TEXT %></B>
  53. <FORM NAME="userform" onSubmit="return false">
  54.  
  55. <TABLE BORDER=0 CELLPADDING=0>
  56. <TR>
  57.     <TD><%= sFont("","","",True) %><%= L_WELCOME_TEXT %></FONT></TD>
  58. </TR>
  59. <TR>
  60.     <TD>
  61.     
  62. <% if Session("IsIE") then %>
  63.         <TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSIE_NUM %>><%= greeting %></TEXTAREA>
  64. <% else %>
  65.         <TEXTAREA WRAP=VIRTUAL NAME="txtGreetingMessage" ROWS=<%= L_WELCOMEROWS_NUM %> COLS=<%= L_WELCOMECOLSNS_NUM %>><%= greeting %></TEXTAREA>
  66. <% end if %>
  67.  
  68.  
  69.     </TD>
  70. </TR>
  71.  
  72. <TR>
  73.     <TD HEIGHT=4><%= sFont("","","",True) %> </FONT></TD>    
  74. </TR>
  75.  
  76. <TR>
  77.     <TD><%= sFont("","","",True) %><%= L_EXIT_TEXT %></FONT></TD>    
  78. </TR>
  79.  
  80. <TR>
  81.     <TD><%= sFont("","","",True) %><%= text("ExitMessage",L_EXIT_NUM,"","","",false,false) %></FONT></TD>    
  82. </TR>
  83.  
  84. <TR>
  85.     <TD HEIGHT=4><%= sFont("","","",True) %> </FONT></TD>    
  86. </TR>
  87.  
  88. <TR>
  89.     <TD><%= sFont("","","",True) %><%= L_MAX_TEXT %></FONT></TD>    
  90. </TR>
  91.  
  92. <TR>
  93.     <TD><%= sFont("","","",True) %><%= text("MaxClientsMessage",L_MAX_NUM,"","","",false,false) %></FONT></TD>    
  94. </TR>
  95.  
  96.  
  97. </TABLE>
  98.  
  99. </FORM>
  100. </FONT>
  101. </BODY>
  102.  
  103. </HTML>
  104. <% end if %>